home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xfontprop.t < prev    next >
Text File  |  1990-06-01  |  387b  |  7 lines
  1. (herald xfontprop (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XFONTPROP) (CONS 'XFONTPROPP (MAKE-BYTEV 8)))
  3. (DEFINE (XFONTPROP-NAME X) (MREF-INTEGER (CHK-XFONTPROPP X) 0))
  4. (DEFINE (XFONTPROP-NAME! X Y) (SET-MREF-INTEGER! (CHK-XFONTPROPP X) 0 Y))
  5. (DEFINE (XFONTPROP-CARD32 X) (MREF-INTEGER (CHK-XFONTPROPP X) 4))
  6. (DEFINE (XFONTPROP-CARD32! X Y) (SET-MREF-INTEGER! (CHK-XFONTPROPP X) 4 Y))
  7.